home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / TURBOPASCAL WIN / DOCDEMOS.PAK / MATH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-08  |  1.1 KB  |  42 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Pascal for Windows                     }
  4. {   Demo DLL interface unit                      }
  5. {   Copyright (c) 1991 by Borland International  }
  6. {                                                }
  7. {************************************************}
  8.  
  9. unit Math;
  10.  
  11. interface
  12.  
  13. const
  14.  
  15.     cm_Payment    =    201;
  16.     cm_Principal    =    202;
  17.     id_Interest    =    104;
  18.     id_Term    =    105;
  19.     id_Periods    =    112;
  20.     id_Principal    =    106;
  21.     id_Payment    =    106;
  22.     id_Output    =    113;
  23.     er_MustHaveValue    =    1;
  24.     er_InterestLimit    =    2;
  25.     er_TermLimit    =    3;
  26.     er_PrincipalLimit    =    4;
  27.   er_PaymentLimit = 5;
  28.  
  29. function Power(X, Y: Real): Real;
  30. function Payments(Period, Interest, Term, Principal: Real): Real;
  31. function Principals(Payment, Period, Interest, Term: Real): Real;
  32. procedure WriteError(Window: Word; ErrorMessage: PChar);
  33.  
  34. implementation
  35.  
  36. function Power;         external 'MathDll' index 1;
  37. function Payments;      external 'MathDll' index 2;
  38. function Principals;    external 'MathDll' index 3;
  39. procedure WriteError;   external 'MathDll' index 4;
  40.  
  41. end.
  42.